home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_2 / cnetjam2.lha / CNetJam2 / cnet / pfiles / fido / Give_Me_FILES < prev    next >
Text File  |  1995-01-28  |  3KB  |  47 lines

  1. /**************************************************************************\
  2.             $VER: Give_Me_FILES, v1.0 (28-Jan-95) by Dotoran!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch
  6. a='rexxsupport.library';if ~show('l',a) then if ~addlib(a,0,-30) then exit
  7.  
  8. /* This mod allows your users to either VIEW or SELECT for DOWNLOAD your bbs's
  9.    "FILES" listing(s), which are generally used for FREQS (File Requests).
  10.    It's written to find then at the FREQ: assign, but you can change that in
  11.    the code below. You should add this line to the end of Menu # 2; Available
  12.    Everywhere Menu in your "cnet:bbsmenu" file:
  13.  
  14.             FILES  `1- | {#0pfiles:Fido/Give_Me_FILES}
  15.                          ^
  16.                      Control-Q
  17.  
  18.    Set "files" variable below to the number of filelistings available for
  19.    user viewing/downloading, then set the "f." variables equal to the lists
  20.    available. The first word in each variable should be the EXACT filename
  21.    for the filelist in question. Do NOT use an MCI Color code at the START
  22.    of these lines and make SURE no other characters, besides a SPACE come
  23.    DIRECTLY after the name.
  24. */
  25.  
  26. files=5
  27. f.1="FR_FILES.LHA  cf: ceComplete listing of files found on Frontiers BBS."
  28. f.2="FR_AFILES.LHA cf: ceAmiga Specific listing of files on Frontiers BBS."
  29. f.3="FR_IFILES.ZIP cf: ceIBMPC Specific listing of files on Frontiers BBS."
  30. f.4="FR_CFILES.LHA cf: ceCNet Amiga BBS listing of files on Frontiers BBS."
  31. f.5="FR_DFILES.LHA cf: ceFiles written by Dotoran for CNet AMiga BBS."
  32.  
  33. START:
  34. tr "@4n1cdFilelists c6available for c3viewingc6/c2downloadingc6:n1"
  35. do i=1 to files;tr "cf"i"cb. ca"f.i;end i;tr
  36. se "c6Which listing? c7[cb1c7-cb"files"c7/cdQUITc7]c6: cb";gc;list=result
  37. if list<1|list>files|datatype(list,"n")=0 then do;tr "cdQuit";exit;end;else tr list
  38. se 'n1c7[c3Vc7]c3iew c6FREQ-File List or c7[c2Dc7]c2ownload c6it? c7[cdQUITc7]c6: '
  39. gc;a=result;if index("VD",a)=0 then do;tr "cdQuit!";exit;end
  40. if a='V' then do;tr "c3View It!n1*4freq:"left(f.list,index(f.list,".")-1)"}@4";signal START;end
  41. se 'c2Download It!';selectfile "FREQ:"word(f.list,1);signal START
  42. SYNTAX:;ERROR:;IOERR:;e1=' c9Errorcf: ca'rc' cf(ca'errortext(rc)'cf)';e2='  c9Linecf: ce'left(sigl,4)'c9Filecf:'
  43.   gu 1311992;a=result;gu 1311960;b=result;c='cb"ce'a||b'cb"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2;e=sourceline(sigl)
  44.   do while e~='';e3='c9Sourcecf: cd'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  45. /** Last Edited: 28-Jan-95 ************************************************\
  46. \****************************************** FRONTIERS BBS (716)/823-9892 **/
  47.